perm filename ZOR21.DAT[MUS,LCS]4 blob sn#201216 filedate 1976-02-12 generic text, type T, neo UTF8
 RCDFLG←-1; 
 
  < ZOR21.DAT  --  RANDOM NUMBER=     1
 PLAY;
 TOOT     0.000    1.000 A*4   2000.000
;PRINT(P1);< TOOT    1
 TOOT     1.000    1.000 D*4  
;PRINT(P1);< TOOT    2
 TOOT     2.000    1.000 A    
;PRINT(P1);< TOOT    3
 TOOT     3.000    1.000 DS   
;PRINT(P1);< TOOT    4
 TOOT     4.000    1.000 C*8  
;PRINT(P1);< TOOT    5
 TOOT     5.000    1.000 GS*4 
;PRINT(P1);< TOOT    6
 TOOT     6.000    1.000 B*2  
;PRINT(P1);< TOOT    7
 TOOT     7.000    1.000 CS   
;PRINT(P1);< TOOT    8
 TOOT     8.000    1.000 FS*2 
;PRINT(P1);< TOOT    9
 TOOT     9.000    1.000 E*2  
;PRINT(P1);< TOOT   10
 FINISH; < ZOR21.DAT